home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / clause.dia.ref < prev    next >
Text File  |  1999-09-16  |  591b  |  47 lines
  1.  
  2. deff('[y]=t(x)',[
  3. 'y=0'
  4. 'if x>0 then'
  5. '  if x=1 then '
  6. '    return'
  7. '  else '
  8. '    if x=2 then '
  9. '       y=10'
  10. '    else '
  11. '       for u=1:x, '
  12. '         y=y+u,'
  13. '       end,'
  14. '       return'
  15. '    end'
  16. '  end'
  17. 'else '
  18. '  for u=1:-x, '
  19. '    if u=4 then '
  20. '      return,'
  21. '    else '
  22. '      y=u,'
  23. '    end'
  24. '  end'
  25. 'end'])
  26.  
  27. //
  28.  
  29. if t(0)<>0 then bugmes();quit;end
  30.  
  31. if t(1)<>0 then bugmes();quit;end
  32.  
  33. if t(-1)<>1 then bugmes();quit;end
  34.  
  35. //
  36.  
  37. t1=t;
  38.  
  39. comp(t1)
  40.  
  41. if t(0)-t1(0)<>0 then bugmes();quit;end
  42.  
  43. if t(1)-t1(1)<>0 then bugmes();quit;end
  44.  
  45. if t(-1)-t1(-1)<>0 then bugmes();quit;end
  46.  
  47.